home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / vbgprt / abortfor.frm next >
Text File  |  1994-06-03  |  2KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form AbortForm 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "Printing"
  5.    ClientHeight    =   1425
  6.    ClientLeft      =   2145
  7.    ClientTop       =   4215
  8.    ClientWidth     =   3765
  9.    ControlBox      =   0   'False
  10.    Height          =   1830
  11.    Left            =   2085
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1425
  17.    ScaleWidth      =   3765
  18.    Top             =   3870
  19.    Visible         =   0   'False
  20.    Width           =   3885
  21.    Begin CommandButton CmdAbort 
  22.       Caption         =   "Press to Abort Print Job"
  23.       Height          =   372
  24.       Left            =   600
  25.       TabIndex        =   0
  26.       Top             =   840
  27.       Width           =   2532
  28.    End
  29.    Begin Label Label1 
  30.       BackColor       =   &H8000000F&
  31.       Caption         =   "Label1"
  32.       Height          =   492
  33.       Left            =   240
  34.       TabIndex        =   1
  35.       Top             =   120
  36.       Width           =   3372
  37.    End
  38. End
  39. '----------------------------------------------------------------
  40. 'Copyright 1994   Unger Business Systems  All Rights Reserved
  41. 'This code is distributed as shareware.  If you use it, you
  42. 'are required by law to register it.  Please contact Unger
  43. 'Business Systems at 11926 Barrett Brae, Houston, TX 77072-4004
  44. 'or call (713) 498-8517.  Registration fee is $20.00 US
  45. 'See the README.TXT file for more information
  46. '
  47. 'All code, forms, modules, controls, etc. are provided without
  48. 'warranty or liability
  49. '----------------------------------------------------------------
  50.  
  51. Option Explicit
  52.  
  53. Sub CmdAbort_Click ()
  54.    AbortPrinting = True
  55.    cmdAbort.Caption = "ABORT - Please wait..."
  56.    AbortForm.Refresh
  57.    DoEvents
  58.    Screen.MousePointer = 11
  59. End Sub
  60.  
  61. Sub Form_Load ()
  62.     Dim TLeft%, TTop%
  63.  
  64.     'position form in center of screen
  65.     TLeft = (Screen.Width - Width) / 2
  66.     TTop = (Screen.Height - Height) / 2
  67.     Move TLeft, TTop
  68.  
  69.     cmdAbort.Caption = "Press to Abort Print Job"
  70. End Sub
  71.  
  72.